home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / misc / math / Laplace.lha / Laplace / Data / Projects.lha / physic_PI_12 < prev    next >
Encoding:
Text File  |  1996-08-26  |  1.1 KB  |  60 lines
  1. #LAPLACE
  2. #USEFLOAT=TRUE
  3. #USEERROR=TRUE
  4. #SIMPLIFY=TRUE
  5. #ERRBND=15
  6. #EXPDSP=5
  7. #PREC=4
  8. #F1=f(x)=
  9. #F2=g(x)=
  10. #F3=h(x)=f(x)/g(x)
  11. #F4=matrix(
  12. #F5=vector(
  13. #F6=diff(f)
  14. #F7=diff(g)
  15. #F8=diff(h)
  16. #F9=taylor(f,0)
  17. #F10=taylor(f,1)
  18. #F11=%(run type s:startup-sequence)
  19. #F12=
  20. #F13=
  21. #F14=
  22. #F15=
  23. #F16=
  24. #F17=
  25. #F18=
  26. #F19=
  27. #F20=
  28. pi=3.14159265
  29. g=360/(2*eval(pi))
  30. D=0.1/219±4
  31. D_1=D*g
  32. t_1=set( 23.38,23.31,23.15)
  33. t_1=real(average(t_1), error(t_1))
  34. T_1=t_1/20
  35. t_2=set(31.97,31.87,31.94)
  36. t_2=real(average(t_2),error(t_2))
  37. T_2=t_2/20
  38. m_s=0.563,r_s=5.27e-2
  39. D_2=2*eval(pi)^2*m_s*r_s^2/(T_2^2 - T_1^2)
  40. D=(D_1 + D_2)/2
  41. J_Tisch = D*T_2^2 / (4*eval(pi)^2)
  42. J_s=1/2*m_s*r_s^2
  43. t_1=set(44.47,44.57,44.5)
  44. t_1=real(average(t_1),error(t_1))
  45. T_1=t_1/20
  46. J(T)=(D*T^2/(4*eval(pi)^2) - J_Tisch)
  47. J_0=J(T_1)
  48. J(2.228±0.005),J(2.250±0.005),J(2.319±0.005),J(2.433±0.005),J(2.569±0.005)
  49. J_s(x)=(m_s*x^2 + J_0)
  50. J_s(0.005),J_s(0.01),J_s(0.02),J_s(0.03),J_s(0.04)
  51. J_Gabel = D*(13.31±0.1/20)^2 / (4*eval(pi)^2)
  52. J(T)=(D*T^2/(4*eval(pi)^2) - J_Gabel)
  53. T=set(18.33±0.02,23.28±0.09,32.86±0.02,38.13,35.8±0.08,27.62±0.1)
  54. T=T/20
  55. 1/sqrt(J(0.9165±0.001))
  56. J=(T^2*D/(4*eval(pi)^2) - J_Gabel)
  57. J=sqrt(J)
  58. inv(J)
  59.  
  60.